home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / JUL / CJ9507 / unit1.pas < prev   
Pascal/Delphi Source File  |  1995-06-01  |  2KB  |  98 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, DBTables, DB, DBCtrls, StdCtrls, Mask, Grids, DBGrids,
  8.   ExtCtrls;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     DBEdit1: TDBEdit;
  13.     DBEdit2: TDBEdit;
  14.     DBEdit3: TDBEdit;
  15.     Label1: TLabel;
  16.     Label2: TLabel;
  17.     Label3: TLabel;
  18.     DataSource1: TDataSource;
  19.     Table1: TTable;
  20.     DataSource2: TDataSource;
  21.     Table2: TTable;
  22.     DataSource3: TDataSource;
  23.     Table3: TTable;
  24.     DBText1: TDBText;
  25.     DBText2: TDBText;
  26.     Table1OrderNo: TFloatField;
  27.     Table1CustNo: TFloatField;
  28.     Table1EmpNo: TIntegerField;
  29.     Table1CustName: TStringField;
  30.     Table1EmpName: TStringField;
  31.     DataSource4: TDataSource;
  32.     DataSource5: TDataSource;
  33.     Table4: TTable;
  34.     Table5: TTable;
  35.     Table4CustNo: TFloatField;
  36.     Table4Company: TStringField;
  37.     Table5EmpNo: TIntegerField;
  38.     Table5LastName: TStringField;
  39.     DBNavigator1: TDBNavigator;
  40.     DBGrid1: TDBGrid;
  41.     Button1: TButton;
  42.     Table2OrderNo: TFloatField;
  43.     Table2ItemNo: TFloatField;
  44.     Table2PartNo: TFloatField;
  45.     Table2Qty: TIntegerField;
  46.     Table2Description: TStringField;
  47.     Table3PartNo: TFloatField;
  48.     Table3Description: TStringField;
  49.     Table3ListPrice: TCurrencyField;
  50.     Table2Price: TCurrencyField;
  51.     Label4: TLabel;
  52.     Table2Total: TCurrencyField;
  53.     Label5: TLabel;
  54.     procedure Table1CalcFields(DataSet: TDataset);
  55.     procedure Button1Click(Sender: TObject);
  56.     procedure Table2CalcFields(DataSet: TDataset);
  57.   private
  58.     { Private declarations }
  59.   public
  60.     { Public declarations }
  61.   end;
  62.  
  63. var
  64.   Form1: TForm1;
  65.  
  66. implementation
  67.  
  68. {$R *.DFM}
  69.  
  70. procedure TForm1.Table1CalcFields(DataSet: TDataset);
  71. begin
  72. {if not (Table1CustNo.AsString = '') then}
  73.    if Table4.FindKey([Table1CustNo.value]) then
  74.       Table1CustName.value := Table4Company.value;
  75. {if not Table1EmpNo.IsNull then}
  76.    if Table5.FindKey([Table1EmpNo.AsString]) then
  77.       Table1EmpName.value := Table5LastName.value;
  78.  
  79. end;
  80.  
  81. procedure TForm1.Button1Click(Sender: TObject);
  82. begin
  83. close;
  84. end;
  85.  
  86. procedure TForm1.Table2CalcFields(DataSet: TDataset);
  87. begin
  88. if Table3.FindKey([Table2PartNo.value]) then
  89.    begin;
  90.    Table2Description.value := Table3Description.value;
  91.    Table2Price.value := Table3ListPrice.value;
  92.    Table2Total.AsFloat := Table2Price.AsFloat * Table2Qty.AsFloat;
  93.    end;
  94.  
  95. end;
  96.  
  97. end.
  98.